home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / 6_10 / WineList / c_Wine next >
Encoding:
Text File  |  1992-10-11  |  2.6 KB  |  224 lines
  1. %OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938 
  2. %OP%TNN
  3. %OP%WRN
  4. %OP%DP0
  5. %OP%IRN
  6. %OP%PL0
  7. %OP%HM0
  8. %OP%FM0
  9. %OP%BM0
  10. %OP%LM4
  11. %OP%PT1
  12. %OP%PDPipeLine
  13. %OP%WC2,1670,44,816,0,1,0,2
  14. %OP%NDready,B51
  15. %OP%NDmake_table,C16C23
  16. %OP%NDarea_table,D16D23
  17. %OP%NDarea,B8
  18. %OP%NDwine_type,B30
  19. %OP%NDwine_table,C38C45
  20. %OP%NDtype_table,D38D45
  21. %OP%FR0,2
  22. %CO:A,40,136%Comments and Commands
  23.  
  24.  
  25. %V%%L%function("find_area","make:text")
  26.  
  27. %V%%L%set_name("make_table",C16C23)
  28. %V%%L%set_name("area_table",D16D23)
  29. %V%%L%set_name("area",B8)
  30.  
  31. %V%%L%set_value(area,lookup(@make,make_table,area_table))
  32.  
  33. %V%%L%result(area)
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46. ------------------------------------------------------------------------
  47. %V%%L%function("find_type","wine:text")
  48.  
  49. %V%%L%set_name("wine_table",C38C45)
  50. %V%%L%set_name("type_table",D38D45)
  51. %V%%L%set_name("wine_type",B30)
  52.  
  53. %V%%L%set_value(wine_type,lookup(@wine,wine_table,type_table))
  54.  
  55. %V%%L%result(wine_type)
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69. ------------------------------------------------------------------------
  70. %V%%L%function("find_ready","wine:text","make:text","year:number")
  71.  
  72. %V%%L%set_name("ready",B51)
  73. %V%%L%set_value(ready,"Not Known")
  74. %V%%L%if(@wine="Müller^#"|@wine="Beaujolais"|@wine="Ryecroft^#",set_value(ready,@year+0),)
  75. %V%%L%if(@wine="Breidecker"|@wine="Champagne^#"|@wine="Flora"|@wine="Ice^#"|@wine="Pinot Bon Jové"|@wine="^#Rosé"|@wine="Ruländer^#"|@wine="Sauterne"|@wine="Sekt",set_value(ready,@year+1),)
  76. %V%%L%if(@wine="Chablis"|@wine="Chenin Blanc"|@wine="Fumé Blanc"|@wine="Gewürztraminer"|@wine="^#Riesling^#"|@wine="Waitiri^#",set_value(ready,@year+2),)
  77. %V%%L%if(@wine="Barossa^#"|@wine="^#Chard^#"|@wine="Claret^#"|@wine="Pinot^#"|@wine="Sauv^#"|@wine="Semillon^#",set_value(ready,@year+3),)
  78. %V%%L%if(@wine="Burgundy^#"|@wine="Cabernet^#"|@wine="Merlot"|@wine="Shiraz^#",set_value(ready,@year+4),)
  79. %V%%L%result(deref(ready))
  80.  
  81.  
  82. ------------------------------------------------------------------------
  83. %CO:B,19,0%Value
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90. %V%%R%"Marl  "
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112. %V%%R%"Red"
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133. %V%%R%1989
  134. %CO:C,35,0%
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148. %L%Make
  149.  
  150. Hunters Spring Creek                     
  151. Matua Valley Waimauku Estate              
  152. Robard & Butler                          
  153. Selaks                                   
  154. Te Whare Ra QDR                          
  155. Weingut Seifried                         
  156. ^#
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170. %L%Wine
  171.  
  172. Cabernet Sauvignon             
  173. Cabernet/Merlot
  174. Claret                         
  175. Claret Private Bin             
  176. Pinot Noir                     
  177. Sauvignon Blanc
  178. ^#
  179. %CO:D,12,0%
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193. Area
  194.  
  195. Marl  
  196. Aukl  
  197. Aukl  
  198. Aukl  
  199. Marl  
  200. Marl  
  201. Unknown
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215. %L%Type
  216.  
  217. Red
  218. Red
  219. Red
  220. Red
  221. Red
  222. White
  223. Unknown
  224. %CO:E,0,0%%CO:F,0,0%%CO:G,0,0%